home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / dev / c / Emperor_v4.1.lha / Emperor.install < prev    next >
Text File  |  2001-07-31  |  14KB  |  428 lines
  1. ;Emperor install script Version $VER: Emperor.Install 4.1 (16.07.2001)
  2. ;written by Matthias Gietzelt
  3. ;Copyright by Matthias Gietzelt © 2000-2001
  4. ;All right reserved
  5.  
  6. ;**PREPARE INSTALL**
  7.  
  8. (set #lang 0)
  9. (if (= "deutsch" @language)
  10.     (
  11.         (set #lang 1)
  12.  
  13.         (set #MSG_OS35          "Emperor benötigt mindestens AmigaOS 3.5 !")
  14.  
  15.         (set #MSG_WELCOME1 (cat "\nWillkommen bei der Installation von Emperor !\n"
  16.                                 "Emperor ist eine objekt-orientierte Programmiersprache.\n\n"
  17.                                 "Vielen Dank das Sie dieses Programmpaket ausprobieren möchten.\n\n"
  18.                                 "Emperor benötigt die Amiga Developer CD 2.1\n"
  19.                                 "von der Haage & Partner GmbH, um arbeiten zu können.\n"
  20.                                 "Dieses beinhaltet z.B. einen C/C++-Compiler und die Unterstützung\n"
  21.                                 "zur Softwareentwicklung für das neue AmigaOS 3.5."))
  22.  
  23.         (set #MSG_WELCOME2 (cat "\nWeiterhin benötigt Emperor folgende Dateien:\n\n"
  24.                                 "CatComp von der Developer CD 2.1\n"
  25.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  26.                                 "StormC von der Developer CD 2.1\n"
  27.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  28.                                 "xen.font in der Größe 8 installiert im Fonts:-Verzeichnis\n"))
  29.  
  30.         (set #MSG_ALREADY_ASSIGNED1 "Sie haben bereits eine Kopie von \"Emperor\" installiert !\n\ninstallierte Version: ")
  31.         (set #MSG_ALREADY_ASSIGNED2 "\nzu installierende Version: 4.1\n\nin Pfad:\n")
  32.         (set #MSG_ALREADY_ASSIGNED3 "\n\nMöchten Sie einen anderen Pfad benutzen ?")
  33.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Ja")
  34.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "Nein")
  35.  
  36.         (set #MSG_DEST         "Wo möchten Sie Emperor installieren ?\nEin Verzeichnis \"Emperor\" wird automatisch erzeugt !")
  37.  
  38.         (set #MSG_GUIDE        "\nBevor Sie mit der Installation beginnen,\n sollten Sie das \"Emperor.guide\" lesen !")
  39.         (set #MSG_GUIDE_NOW    "Jetzt lesen !")
  40.         (set #MSG_GUIDE_DONE   "Bereits erledigt !")
  41.  
  42.         (set #MSG_WHAT         "Welche Programmteile möchten Sie installieren ?")
  43.         (set #MSG_WHAT_PROGGY  "Emperor Programm")
  44.         (set #MSG_WHAT_DOCU    "Emperor Dokumentation")
  45.         (set #MSG_WHAT_CONFIG  "Emperor Konfigurationsdatei")
  46.         (set #MSG_WHAT_CATALOG "Emperor Katalog (deutsch, français)")
  47.         (set #MSG_WHAT_PROJECT "Emperor Beispielprojekte")
  48.         (set #MSG_WHAT_SCRIPTS "Emperor Skripte")
  49.  
  50.         (set #MSG_LANGUAGE     "Bitte wählen Sie die gewünschte Sprache aus !")
  51.  
  52.         (set #MSG_MAKEDIR      "Erzeuge Verzeichnis für Emperor ...")
  53.         (set #MSG_COPY_ICON    "Kopiere Piktogramm ...")
  54.         (set #MSG_COPY_PROGGY  "Kopiere Hauptprogramm ...")
  55.         (set #MSG_COPY_DOCU    "Kopiere Dokumentation ...")
  56.         (set #MSG_COPY_CONFIG  "Kopiere Konfigurationsdatei ...")
  57.         (set #MSG_COPY_CATALOG "Kopiere Katalog ...")
  58.         (set #MSG_COPY_PROJECT "Kopiere Beispielprojekte ...")
  59.         (set #MSG_COPY_SCRIPTS "Kopiere Skripte ...")
  60.         (set #MSG_COPY_README  "Kopiere Readme ...")
  61.         (set #MSG_COPY_PICTURE "Kopiere Startbild ...")
  62.  
  63.         (set #MSG_STARTUP      "\nUm Emperor korrekt arbeiten zu lassen, sind\n Änderungen in der User-Startup notwendig:\n\n")
  64.  
  65.         (set #MSG_NOHELP       "Leider ist keine Hilfe verfügbar !\nFalls sich Probleme ergeben,\nmailen Sie mir einfach: shamane@exmail.de")
  66.         (set #MSG_DONE         "\nInstallation abgeschlossen !\n\nViel Spaß bei der Softwareentwicklung mit Emperor !")
  67.     )
  68.     (
  69.         (set #MSG_OS35          "Emperor needs at least AmigaOS 3.5 !")
  70.  
  71.         (set #MSG_WELCOME1 (cat "\nWelcome to the installation of Emperor !\n"
  72.                                 "Emperor is an object-oriented programming-language.\n\n"
  73.                                 "Thank you for testing this program-packet.\n\n"
  74.                                 "Emperor needs the Amiga Developer CD 2.1\n"
  75.                                 "of the Haage & Partner GmbH, to work properly.\n"
  76.                                 "This CD includes e.g. an C/C++-Compiler and the support\n"
  77.                                 "for developing of software for AmigaOS 3.5."))
  78.  
  79.         (set #MSG_WELCOME2 (cat "\nEmperor needs following files:\n\n"
  80.                                 "CatComp from the Developer CD 2.1\n"
  81.                                 "(ADCD_2.1:NDK/NDK_3.5/Tools/CatComp)\n\n"
  82.                                 "StormC from the Developer CD 2.1\n"
  83.                                 "(ADCD_2.1:Contributions/Haage_&_Partner/StormC/)\n\n"
  84.                                 "xen.font in size 8 installed in the Fonts:-directory\n"))
  85.  
  86.         (set #MSG_ALREADY_ASSIGNED1 "You have got already a copy of \"Emperor\" installed !\n\ninstalled version: ")
  87.         (set #MSG_ALREADY_ASSIGNED2 "\nversion to install: 4.1\n\nin path:\n")
  88.         (set #MSG_ALREADY_ASSIGNED3 "\n\nDo you want to take another path ?")
  89.         (set #MSG_ALREADY_ASSIGNED_BUTTON1 "Yes")
  90.         (set #MSG_ALREADY_ASSIGNED_BUTTON2 "No")
  91.  
  92.         (set #MSG_DEST         "Where do you want to install Emperor ?\nA drawer called \"Emperor\" will be created automatically !")
  93.  
  94.         (set #MSG_GUIDE        "\nYou should start installation only after having read \"Emperor.guide\" !")
  95.         (set #MSG_GUIDE_NOW    "Read now !")
  96.         (set #MSG_GUIDE_DONE   "Already done !")
  97.  
  98.         (set #MSG_WHAT         "What do you want to install ?")
  99.         (set #MSG_WHAT_PROGGY  "Emperor main program")
  100.         (set #MSG_WHAT_DOCU    "Emperor documentation")
  101.         (set #MSG_WHAT_CONFIG  "Emperor configuration file")
  102.         (set #MSG_WHAT_CATALOG "Emperor catalog (deutsch, français)")
  103.         (set #MSG_WHAT_PROJECT "Emperor example project")
  104.         (set #MSG_WHAT_SCRIPTS "Emperor scripts")
  105.  
  106.         (set #MSG_LANGUAGE     "Choose the language you'd like!")
  107.  
  108.         (set #MSG_MAKEDIR      "Creating directory for Emperor ...")
  109.         (set #MSG_COPY_ICON    "Copying icon ...")
  110.         (set #MSG_COPY_PROGGY  "Copying main program ...")
  111.         (set #MSG_COPY_DOCU    "Copying documentation ...")
  112.         (set #MSG_COPY_CONFIG  "Copying configuration file ...")
  113.         (set #MSG_COPY_CATALOG "Copying catalog ...")
  114.         (set #MSG_COPY_PROJECT "Copying exampleprojects ...")
  115.         (set #MSG_COPY_SCRIPTS "Copying scripts ...")
  116.         (set #MSG_COPY_README  "Copying readme ...")
  117.         (set #MSG_COPY_PICTURE "Copying startuppicture ...")
  118.  
  119.         (set #MSG_STARTUP      "\nTo get Emperor work well there has to be made\n some changes to your User-Startup:\n\n")
  120.  
  121.         (set #MSG_NOHELP       "No help available, sorry !\nWhen there are some problems,\nmail to: shamane@exmail.de")
  122.         (set #MSG_DONE         "\nInstallation complete !")
  123.     )
  124. )
  125. (if (= "français" @language)
  126.     (
  127.         (set #lang 2)
  128.     )
  129. )
  130.  
  131. ;**STARTING UP**
  132.  
  133. (complete 0)
  134.  
  135. (set #INSTALLPATH   (getassign "Emperor" 'a'))
  136. (set #INSTALLED     (strlen #INSTALLPATH))
  137. (set #OSVERSION     (/ (getversion "workbench.library" (resident)) 65536))
  138. (set #GETPATH       1)
  139. (set #WHAT_PROGGY   1)
  140. (set #WHAT_DOCU     2)
  141. (set #WHAT_CONFIG   4)
  142. (set #WHAT_CATALOG  8)
  143. (set #WHAT_PROJECT 16)
  144. (set #WHAT_SCRIPTS 32)
  145. (set #WHAT         63)
  146.  
  147. (if (= 0 #lang) (set #WHAT 55))
  148. (if (> 44 #OSVERSION) (abort #MSG_OS35))
  149.  
  150. (message #MSG_WELCOME1)
  151. (message #MSG_WELCOME2)
  152.  
  153. ;**READ DOCUMENTATION**
  154.  
  155. (if (= 1 (askbool
  156.             (prompt  #MSG_GUIDE)
  157.             (choices #MSG_GUIDE_NOW
  158.                      #MSG_GUIDE_DONE
  159.             )
  160.             (help #MSG_NOHELP)
  161.         )
  162.     )
  163.     (
  164.         (if (= 1 #lang)
  165.             (
  166.                 (run "SYS:Utilities/Multiview Emperor/Emperor_deutsch.guide")
  167.             )
  168.             (
  169.                 (run "SYS:Utilities/Multiview Emperor/Emperor_english.guide")
  170.             )
  171.         )
  172.     )
  173. )
  174.  
  175. ;**CHECK FOR INSTALLED VERSION**
  176.  
  177. (complete 10)
  178.  
  179. (if (<> 0 #INSTALLED)
  180.     (
  181.         (set #INSTALLEDVERSION (getversion "Emperor:Emperor"))
  182.         (set #INSTALLEDVER (/ #INSTALLEDVERSION 65536))
  183.         (set #INSTALLEDREV (- #INSTALLEDVERSION (* #INSTALLEDVER 65536)))
  184.         (set #GETPATH (askbool
  185.                 (prompt  #MSG_ALREADY_ASSIGNED1
  186.                          #INSTALLEDVER
  187.                          "."
  188.                          #INSTALLEDREV
  189.                          #MSG_ALREADY_ASSIGNED2
  190.                          #INSTALLPATH
  191.                          #MSG_ALREADY_ASSIGNED3
  192.                 )
  193.                 (choices #MSG_ALREADY_ASSIGNED_BUTTON1
  194.                          #MSG_ALREADY_ASSIGNED_BUTTON2
  195.                 )
  196.                 (help    #MSG_NOHELP)
  197.             )
  198.         )
  199.     )
  200. )
  201.  
  202. ;**CHOOSE PATH**
  203.  
  204. (complete 20)
  205.  
  206. (if (= 1 #GETPATH)
  207.     (
  208.         (set #INSTALLPATH (askdir
  209.                 (prompt  #MSG_DEST)
  210.                 (help    #MSG_NOHELP)
  211.                 (default @default-dest)
  212.             )
  213.         )
  214.     )
  215. )
  216.  
  217. ;**CHOOSE COMPONENTS TO INSTALL**
  218.  
  219. (complete 30)
  220.  
  221. (if (= 2 @user-level)
  222.     (
  223.         (set #WHAT (askoptions
  224.                 (prompt  #MSG_WHAT)
  225.                 (choices #MSG_WHAT_PROGGY
  226.                          #MSG_WHAT_DOCU
  227.                          #MSG_WHAT_CONFIG
  228.                          #MSG_WHAT_CATALOG
  229.                          #MSG_WHAT_PROJECT
  230.                          #MSG_WHAT_SCRIPTS
  231.                 )
  232.                 (help    #MSG_NOHELP)
  233.                 (default #WHAT)
  234.             )
  235.         )
  236.         (if (<> 0 (bitand #WHAT_DOCU #WHAT))
  237.             (set #lang (askchoice
  238.                     (prompt  #MSG_LANGUAGE)
  239.                     (choices "english"
  240.                              "deutsch"
  241.                              "français")
  242.                     (help    #MSG_NOHELP)
  243.                     (default #lang)
  244.                 )
  245.             )
  246.         )
  247.     )
  248. )
  249.  
  250. ;**CREATE DIRECTORY**
  251.  
  252. (complete 40)
  253.  
  254. (if (= 1 #GETPATH)
  255.     (
  256.         (makedir
  257.                  (tackon #INSTALLPATH "Emperor")
  258.                  (prompt #MSG_MAKEDIR)
  259.                  (help   #MSG_NOHELP)
  260.         )
  261.         (copyfiles
  262.                  (prompt #MSG_COPY_ICON)
  263.                  (source "Emperor.info")
  264.                  (dest   #INSTALLPATH)
  265.                  (help   #MSG_NOHELP)
  266.         )
  267.         (set #INSTALLPATH (tackon #INSTALLPATH "Emperor")
  268.         )
  269.     )
  270. )
  271.  
  272. ;**START COPY-PROCEDURE**
  273.  
  274. (complete 50)
  275.  
  276. (if (<> 0 (BITAND #WHAT_PROGGY #WHAT))
  277.     (
  278.         (copyfiles
  279.                  (prompt #MSG_COPY_PROGGY)
  280.                  (source "Emperor/Emperor")
  281.                  (dest   #INSTALLPATH)
  282.                  (infos)
  283.                  (help   #MSG_NOHELP)
  284.         )
  285.     )
  286. )
  287.  
  288. (complete 55)
  289.  
  290. (if (<> 0 (BITAND #WHAT_DOCU #WHAT))
  291.     (
  292.         (if (= 1 #lang)
  293.             (
  294.                 (copyfiles
  295.                      (prompt #MSG_COPY_DOCU)
  296.                      (newname "Emperor.guide")
  297.                      (source "Emperor/Emperor_deutsch.guide")
  298.                      (dest   #INSTALLPATH)
  299.                      (infos)
  300.                      (help   #MSG_NOHELP)
  301.                 )
  302.             )
  303.             (
  304.                 (copyfiles
  305.                      (prompt #MSG_COPY_DOCU)
  306.                      (newname "Emperor.guide")
  307.                      (source "Emperor/Emperor_english.guide")
  308.                      (dest   #INSTALLPATH)
  309.                      (infos)
  310.                      (help   #MSG_NOHELP)
  311.                 )
  312.             )
  313.         )
  314.     )
  315. )
  316.  
  317. (complete 60)
  318.  
  319. (if (<> 0 (BITAND #WHAT_CONFIG #WHAT))
  320.     (
  321.         (copyfiles
  322.                  (prompt #MSG_COPY_CONFIG)
  323.                  (source "Emperor/Emperor.prefs")
  324.                  (dest   #INSTALLPATH)
  325.                  (infos)
  326.                  (help   #MSG_NOHELP)
  327.         )
  328.     )
  329. )
  330.  
  331. (complete 65)
  332.  
  333. (if (<> 0 (BITAND #WHAT_CATALOG #WHAT))
  334.     (
  335.         (if (= 1 #lang)
  336.             (
  337.                 (copyfiles
  338.                          (prompt #MSG_COPY_CATALOG)
  339.                          (source "Emperor/Catalogs/deutsch/Emperor.catalog")
  340.                          (dest   "SYS:Locale/Catalogs/deutsch")
  341.                          (help   #MSG_NOHELP)
  342.                 )
  343.             )
  344.         )
  345.         (if (= 2 #lang)
  346.             (
  347.                 (copyfiles
  348.                          (prompt #MSG_COPY_CATALOG)
  349.                          (source "Emperor/Catalogs/français/Emperor.catalog")
  350.                          (dest   "SYS:Locale/Catalogs/français")
  351.                          (help   #MSG_NOHELP)
  352.                 )
  353.             )
  354.         )
  355.     )
  356. )
  357.  
  358. (complete 70)
  359.  
  360. (if (<> 0 (BITAND #WHAT_PROJECT #WHAT))
  361.     (
  362.         (copyfiles
  363.                  (prompt #MSG_COPY_PROJECT)
  364.                  (source "Emperor/Projects/")
  365.                  (dest   (tackon #INSTALLPATH "Projects"))
  366.                  (infos)
  367.                  (all)
  368.                  (help   #MSG_NOHELP)
  369.         )
  370.     )
  371. )
  372.  
  373. (complete 75)
  374.  
  375. (if (<> 0 (BITAND #WHAT_SCRIPTS #WHAT))
  376.     (
  377.         (copyfiles
  378.                  (prompt #MSG_COPY_SCRIPTS)
  379.                  (source "Emperor/Scripts/")
  380.                  (dest   (tackon #INSTALLPATH "Scripts"))
  381.                  (infos)
  382.                  (all)
  383.                  (help   #MSG_NOHELP)
  384.         )
  385.     )
  386. )
  387.  
  388. ;**COPYING NECESSARY ADDITONAL INFORMATIONS AND STUFF**
  389.  
  390. (complete 80)
  391.  
  392. (copyfiles
  393.     (prompt #MSG_COPY_README)
  394.     (source "Emperor/ClicktabExample.README!")
  395.     (dest   #INSTALLPATH)
  396.     (help   #MSG_NOHELP)
  397. )
  398.  
  399. (copyfiles
  400.     (prompt #MSG_COPY_PICTURE)
  401.     (source "Emperor/Emperor.pic")
  402.     (dest   #INSTALLPATH)
  403.     (help   #MSG_NOHELP)
  404. )
  405.  
  406. ;**ADD ASSIGN TO USER-STARTUP**
  407.  
  408. (complete 90)
  409.  
  410. (if (= 1 #GETPATH)
  411.     (
  412.         (set #MSG_STARTUPSTUFF (cat "Assign Emperor: " #INSTALLPATH "\n"))
  413.         (startup "Emperor"
  414.             (prompt #MSG_STARTUP
  415.                     #MSG_STARTUPSTUFF
  416.             )
  417.             (command #MSG_STARTUPSTUFF)
  418.             (confirm)
  419.             (help #MSG_NOHELP)
  420.         )
  421.         (makeassign "Emperor" #INSTALLPATH)
  422.     )
  423. )
  424.  
  425. (complete 100)
  426.  
  427. (exit #MSG_DONE (quiet))
  428.